home *** CD-ROM | disk | FTP | other *** search
- #include "timing.h"
-
- #define BOXES 50 /* increase this for a finer grained but more timely effect */
- #define CorrectTime 2
- #define theWindowWidth (boundsRect.right-boundsRect.left)
- #define theWindowHeight (boundsRect.bottom-boundsRect.top)
-
- pascal short BoxOutWipe(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect);
-
- pascal short BoxOutWipe(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect)
- {
- Rect theRect;
- short cenx, ceny;
- short boxnum;
-
- cenx = theWindowWidth / 2;
- ceny = theWindowHeight / 2;
-
- for(boxnum = 0; boxnum <= BOXES; boxnum++)
- {
- StartTiming();
-
- /* this is not the most efficient method, but the overhead of the
- multiplies and the redundant copying is hidden by the timing mechanism */
- theRect.left = cenx - ((boxnum * cenx) / BOXES);
- theRect.right = cenx + ((boxnum * cenx) / BOXES);
- theRect.top = ceny - ((boxnum * ceny) / BOXES);
- theRect.bottom = ceny + ((boxnum * ceny) / BOXES);
- OffsetRect(&theRect, boundsRect.left, boundsRect.top);
-
- CopyBits(&(sourceGrafPtr->portBits), &(destGrafPtr->portBits),
- &theRect, &theRect, 0, 0L);
- TimeCorrection(CorrectTime);
- }
-
- return 0;
- }
-